home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / S-Sound and Music / (c)s6.d64 / boot (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  77 lines
  1. 1 IFA=1THEN600
  2. 3 POKE54272+24,0
  3. 10 POKE53281,0:POKE53280,4:PRINT"[147]"
  4. 20 PRINT"[147]**ENTER SELECTION NUMBER**"
  5. 21 PRINT"                   OR
  6. 22 [153]"  **PRESS SPACE FOR OTHER SELECTION**"
  7. 30 [153]"1. -  I FALL TO PIECES"
  8. 35 [153]"2. -  OKLAHOMA HILLS"
  9. 40 [153]"3. -  BEAUTIFUL BROWN EYES"
  10. 45 [153]"4. -  I CAN'T HELP IT"
  11. 50 [153]"5. -  MAKE THE WORLD GO AWAY"
  12. 55 [153]"6. -  YOU'VE NEVER BEEN THIS FAR BEFORE"
  13. 60 [153]"7. -  DEAR HEARTS AND GENTLE PEOPLE"
  14. 65 [153]"8. -  HELLO WALLS"
  15. 70 [153]"9. -  OH, LONESOME ME"
  16. 75 [153]"0. -  ALABAMA JUBILEE"
  17. 80 [161]A$
  18. 85 [139]A$[178]""[167]80
  19. 90 [139]A$[178]"1"[167][137]150
  20. 95 [139]A$[178]"2"[167][137]155
  21. 100 [139]A$[178]"3"[167][137]160
  22. 105 [139]A$[178]"4"[167][137]165
  23. 110 [139]A$[178]"5"[167][137]170
  24. 115 [139]A$[178]"6"[167][137]175
  25. 120 [139]A$[178]"7"[167][137]180
  26. 125 [139]A$[178]"8"[167][137]185
  27. 130 [139]A$[178]"9"[167][137]190
  28. 135 [139]A$[178]"0"[167][137]195
  29. 145 [139]A$[178]" "[167][137]220:[137]80
  30. 150 A[178]1:[147] "0:I FAL*",8,1
  31. 155 A[178]1:[147] "0:OKLA*",8,1
  32. 160 A[178]1:[147] "0:BEAU*",8,1
  33. 165 A[178]1:[147] "0:I CAN*",8,1
  34. 170 A[178]1:[147] "0:MAKE *",8,1
  35. 175 A[178]1:[147] "0:YOU'V*",8,1
  36. 180 A[178]1:[147] "0:DEAR *",8,1
  37. 185 A[178]1:[147] "0:HELLO*",8,1
  38. 190 A[178]1:[147] "0:OH L*",8,1
  39. 195 A[178]1:[147] "0:ALAB*",8,1
  40. 220 [153]"LOAD**ENTER SELECTION NUMBER**"
  41. 221 [153]"                   OR
  42. 222 PRINT"  **PRESS SPACE FOR OTHER SELECTION**"
  43. 230 PRINT"1. -  HONKY TONK BLUES"
  44. 235 PRINT"2. -  MOUNTAIN DEW"
  45. 240 PRINT"3. -  YOUR CHEATING HEART"
  46. 245 PRINT"4. -  I SAW THE LIGHT"
  47. 250 PRINT"5. -  PAPER ROSES"
  48. 255 PRINT"6. -  WELCOME TO MY WORLD"
  49. 260 PRINT"7. -  WABASH CANNONBALL"
  50. 265 PRINT"8. -  MOCKIN BIRD HILL"
  51. 270 PRINT"9. -  ROSE GARDEN"
  52. 275 PRINT"0. -  IF YOU LOVE ME"
  53. 280 GETY$:IFY$=""THEN280
  54. 290 IFY$="1"THENGOTO350
  55. 295 IFY$="2"THENGOTO355
  56. 300 IFY$="3"THENGOTO360
  57. 305 IFY$="4"THENGOTO365
  58. 310 IFY$="5"THENGOTO370
  59. 315 IFY$="6"THENGOTO375
  60. 320 IFY$="7"THENGOTO380
  61. 325 IFY$="8"THENGOTO385
  62. 330 IFY$="9"THENGOTO390
  63. 335 IFY$="0"THENGOTO395
  64. 345 IFY$=" "THENGOTO20:GOTO280
  65. 350 A=1:LOAD "0:HONKY*",8,1
  66. 355 A=1:LOAD "0:MOUN*",8,1
  67. 360 A=1:LOAD "0:YOUR*",8,1
  68. 365 A=1:LOAD "0:I SA*",8,1
  69. 370 A=1:LOAD "0:PAPE*",8,1
  70. 375 A=1:LOAD "0:WELC*",8,1
  71. 380 A=1:LOAD "0:WABA*",8,1
  72. 385 A=1:LOAD "0:MOCK*",8,1
  73. 390 A=1:LOAD "0:ROSE*",8,1
  74. 395 A=1:LOAD "0:IF Y*",8,1
  75. 600 REM
  76. 710 SYS21350
  77.